home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Data Exchange ƒ / Test.def < prev    next >
Encoding:
Text File  |  1989-01-19  |  512 b   |  17 lines  |  [TEXT/MPS ]
  1. DEFINITION MODULE Test;
  2. (*
  3.    This is a Modula version of the INTERFACE part of the Pascal
  4. unit 'Test'.
  5. *)
  6. VAR
  7.    a,
  8.     b,
  9.     c
  10.        :INTEGER;
  11.         
  12. PROCEDURE GetVal ():INTEGER; EXTERNAL PASCAL;
  13. PROCEDURE Initialize (val:INTEGER); EXTERNAL PASCAL;
  14.  
  15. END Test.5å7êÜ8 8"8<–=PVVVx¥ÑåÄ„äĄ⇄`„
  16. •Ü`„Kˇ¿
  17. ‡„Kˇ¿¢ÜäÄ„¡ÁÄ|ûã„D<¿Δ¡ÛˇÄ„¡ˇ·ˇˇá¸äÄ„<ˇÄÜÄ„|5ˇÄÄ„5ˇÄÄ„Ä„5ˇÄÄ